10 DEFINT A-Z:INPUT "Time: ",M!:S=M!*60
20 PRINT (S\60); ":"; (S MOD 60);
30 ON TIMER(1) GOSUB 50:TIMER ON
40 WHILE INKEY$<>CHR$(27):WEND:PRINT "":END
50 IF S=0 THEN SOUND 800,9 ELSE S=S-1
60 LOCATE ,1: PRINT (S\60); ":"; (S MOD 60);
70 RETURN
